home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / wolledopus / dopus5 / arexx / CDD.dopus5 next >
Text File  |  1998-02-06  |  841b  |  47 lines
  1. /*
  2. $VER: CDD.dopus5 V0.98 (06.02.1998) © Marco Wollkopf
  3. E-Mail: Marco.Wollkopf@t-online.de
  4. Homepage: http://home.t-online.de/home/Marco.Wollkopf
  5.  
  6. HilfsScript für Shell-Befehl CDD
  7.  
  8.  
  9. Einstellungen:
  10. -----------------------------------------------
  11. keine
  12. -----------------------------------------------
  13.  
  14. */
  15.  
  16. options results
  17. options FAILAT 99
  18. parse arg arg1
  19.  
  20. IF SHOW('P','DOPUS.1') THEN
  21.    address DOPUS.1
  22. ELSE DO
  23.    SAY "DirectoryOpus nicht gefunden"
  24.    EXIT
  25. END
  26.  
  27. if index(upper(arg1),'SOURCE') ~= 0 then do
  28.     lister query source
  29.     handle = result
  30.     if handle =='' | handle='RESULT' then do
  31.         say NOLISTER
  32.         exit
  33.     end
  34.     lister query handle path
  35.     say result
  36. end
  37.  
  38. if index(upper(arg1),'DEST') ~= 0 then do
  39.     lister query dest
  40.     handle = result
  41.     if handle =='' | handle='RESULT' then do
  42.         say NOLISTER
  43.         exit
  44.     end
  45.     lister query handle path
  46.     say result
  47. end